home *** CD-ROM | disk | FTP | other *** search
/ Euroscene 2 / Euroscene 2.iso / USEFUL / Install Archivers < prev    next >
Text File  |  1995-11-01  |  1KB  |  68 lines
  1.  
  2.  
  3. ; archiver Installer script. © THP/c!truS'95
  4.  
  5.       ; drugs/alcohol/pain/adrenalin. there must be other ways outta here.
  6.  
  7.  
  8. ; /******************************************************************************/
  9.  
  10.                                    ; Uh?
  11.  
  12.     (set #copying-lha  "Copying LhA 1.38 to C:")
  13.     (set #copying-dms  "Copying DMS 1.11 to C:")
  14.     (set #copying-zoom  "Copying Zoom 5.4 to C:")
  15.     (set #copying-arplib "Copying ARP.library to LIBS:")
  16.  
  17. ; /******************************************************************************/
  18.  
  19.                     ; Enough kacking around, let's GO!
  20.  
  21. (if (< (/ (getversion) 65536) 37)
  22.     (
  23.  
  24.     (copylib
  25.         (prompt "\n" #copying-arplib)
  26.         (help @copylib-help)
  27.         (source "libs/arp.library")
  28.         (dest "libs:")
  29.         (confirm)
  30.     )
  31.     )
  32. )
  33.  
  34. (copylib
  35.     (prompt "\n" #copying-lha)
  36.     (help @copylib-help)
  37.     (source "Archivers/LhA")
  38.     (dest "C:")
  39.     (confirm)
  40. )
  41.  
  42.  
  43. (copyfiles
  44.     (prompt "\n" #copying-dms)
  45.     (help @copyfile-help)
  46.     (source "Archivers/DMS")
  47.     (dest "C:")
  48.     (confirm)
  49. )
  50.  
  51.  
  52. (copyfiles
  53.     (prompt "\n" #copying-zoom)
  54.     (help @copyfile-help)
  55.     (source "Archivers/Zoom")
  56.     (dest "C:")
  57.     (confirm)
  58. )
  59.  
  60. (message (cat "\n"
  61.            "The programs to handle the archive formats on this CD have"
  62.            " now been installed.")
  63. )
  64.  
  65. (exit (quiet))
  66.  
  67.  
  68.